MACD 5/MACD 5.bin/workbench/dir/ordering/install_ordering

Text File | 1995-06-11 | 4.4 KB | 236 lines

(complete 0)
(welcome)

(message
    "\n\n\n\n"
    "Welcome to Ordering installation script.\n"
)


(set @default-dest
    (askdir (prompt "Please select destination directory for Ordering")
        (help @askdir-help)
        (default "SYS:")
    )
)

(copyfiles
    (prompt "\nCopying Ordering...\n")
    (help @copyfiles-help)
    (source "Ordering")
    (dest   @default-dest)
    (files)
    (infos)
)


(complete 20)

(copyfiles
    (prompt "\nCopying Ordering Preferences Editor...\n")
    (help @copyfiles-help)
    (source "OrderingPrefs")
    (dest   @default-dest)
    (files)
    (infos)
)

(complete 40)


(set wert1 (/ (getversion "libs/reqtools.library") 65536))
(set wert2 (BITAND (getversion "libs/reqtools.library") 65535))

(set    flag 1)
(if    (exists "Libs:reqtools.library" (noreq))
    (
        (set oldwert1 (/ (getversion "libs:reqtools.library") 65536))
        (set oldwert2 (BITAND (getversion "libs:reqtools.library") 65535))
        (if    (NOT(askbool
                (prompt "\nReqTools.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
                (help @askbool-help)
                (default 1)
            ))
            (set    flag 0)
        )
    )
    (if    (NOT(askbool
        (prompt "\nDo you want to install\nReqTools.library version "wert1"."wert2" ?\n")
        (help @askbool_help)
        (default 1)
        ))
        (set    flag 0)
    )

)

(if    (= flag 1)
    (copylib
        (prompt "\nCopying ReqTools.library...\n")
        (help @copylib-help)
        (source "Libs/reqtools.library")
        (dest   "Libs:")
    )
)


(complete 50)

(set wert1 (/ (getversion "libs/powerpacker.library") 65536))
(set wert2 (BITAND (getversion "libs/powerpacker.library") 65535))

(set    flag 1)
(if    (exists "Libs:powerpacker.library" (noreq))
    (
        (set oldwert1 (/ (getversion "libs:powerpacker.library") 65536))
        (set oldwert2 (BITAND (getversion "libs:powerpacker.library") 65535))
        (if    (NOT(askbool
                (prompt "\nPowerPacker.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
                (help @askbool-help)
                (default 1)
            ))
            (set    flag 0)
        )
    )
    (if    (NOT(askbool
        (prompt "\nDo you want to install\nPowerPacker.library version "wert1"."wert2" ?\n")
        (help @askbool_help)
        (default 1)
        ))
        (set    flag 0)
    )

)

(if    (= flag 1)
    (copylib
        (prompt "\nCopying PowerPacker.library...\n")
        (help @copylib-help)
        (source "Libs/powerpacker.library")
        (dest   "Libs:")
    )
)


(complete 60)

(set    flag 1)
(if    (exists "Libs:whatis.library" (noreq))
    (if    (NOT(askbool
            (prompt "\nWhatIs.library is already installed.\n\nDo you want to replace it ?\n")
            (help @askbool-help)
            (default 1)
        ))
        (set    flag 0)
    )
    (if    (NOT(askbool
        (prompt "\nDo you want to install WhatIs.library ?\n")
        (help @askbool_help)
        (default 1)
        ))
        (set    flag 0)
    )

)

(if    (= flag 1)
    (copylib
        (prompt "\nCopying WhatIs.library...\n")
        (help @copylib-help)
        (source "Libs/whatis.library")
        (dest   "Libs:")
    )
)


(complete 70)

(set    flag 1)
(if    (exists "S:FileTypes" (noreq))
    (if    (NOT(askbool
            (prompt "\nYou already have a 'FileTypes' file in S:.\n\nDo you want to replace it ?\n")
            (help @askbool-help)
            (default 1)
        ))
        (set    flag 0)
    )
)
(if    (= flag 1)
    (copyfiles
          (prompt "\nCopying 'FileTypes' to S:\n")
        (help @copyfiles-help)
          (source "s/FileTypes")
          (dest    "S:")
        (files)
    )
)


(complete 80)

(set    flag 0)
(if    (NOT(exists "Locale:Catalogs/Français/Ordering.catalog" (noreq)))
    (if    (askbool
            (prompt "\n Do you want to install french catalogs ?\n")
            (help @askbool-help)
            (default 1)
        )
        (set    flag 1)
    )
    (set    flag 1)
)

(if    (= flag 1)
    (copyfiles
        (prompt "\nCopying french catalogs...\n")
        (help @copyfiles-help)
        (source "Locale/Catalogs/Français")
        (dest   "Locale:Catalogs/Français")
        (all)
        (files)
    )
)


(complete 90)

(if     (askbool
        (prompt "\n Do you want to install a documentation file ?\n")
        (help @askbool-help)
    )
    (
        (set doc
            (askchoice
                (prompt "Which documentation do you want to install ?")
                (help @askchoice-help)
                (choices "English documentation" "French documentation")
            )
        )

        (if (= doc 0)
            (set orddoc-source "Ordering_English.Guide")
            (set orddoc-source "Ordering_Français.Guide")
        )

        (set orddoc-dest
            (askdir
                (prompt "Select directory")
                (help @askdir-help)
                (default "HELP:")
            )
        )

        (copyfiles
            (prompt "\nCopying ducumentation...\n")
            (help @copyfiles-help)
            (source orddoc-source)
            (dest   orddoc-dest)
            (newname "Ordering.Guide")
            (files)
            (infos)
        )
    )
)

(complete 100)